home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / MORE_SOURCE_CODE / Anagram_Maker.AMOS / Anagram_Maker.amosSourceCode
AMOS Source Code  |  1992-02-26  |  352b  |  20 lines
  1. 'Anagram Maker 
  2. 'By Thomas Lancaster 
  3.  
  4. Cls 0 : Paper 0 : Pen 2
  5. Repeat 
  6. Input "Word to shuffle ";WORD$
  7. SIZE=Len(WORD$)
  8. Until SIZE>1
  9. Print 
  10. Dim USED(SIZE)
  11. NEW_WORD$=""
  12. For COUNT=1 To SIZE
  13. Repeat 
  14. LETTER=Rnd(SIZE-1)+1
  15. Until USED(LETTER)=0
  16. USED(LETTER)=1
  17. LETTER$=Mid$(WORD$,LETTER,1)
  18. NEW_WORD$=NEW_WORD$+LETTER$
  19. Next COUNT
  20. Print "The Anagram is ";NEW_WORD$